home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PBLIB1 / SKEL / SKEL2.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-03  |  1KB  |  58 lines
  1. PROGRAM SKEL2;
  2.  
  3. {$M 20000,0,655000}
  4.  
  5. Uses PbMISC, PbDATA, PbPARMS, PbOUT0;
  6.  
  7. {
  8. Description : Skeleton with Standard PARMS and OUT level 0
  9.  
  10. Author      : Howard Richoux
  11. Date        : 12/20/93
  12. Last revised: 12/25/93 hnr PbOUT output
  13. Application : IBM PC and compatibles, done in Turbo Pascal 7.0
  14. Status      :
  15. Published in: none
  16.  
  17. Config Parameters        meaning                          default
  18. TEMP=xxxxx               demo parameter                   'ABC'
  19. }
  20.  
  21.  
  22. var s : string;
  23.  
  24.  
  25. {*****************************************************************}
  26.  
  27. Procedure GoOn;      { Initialization is over, do some work.}
  28.      begin
  29.      OUT('Hello world. ['+s+']');
  30.      end;
  31.  
  32.  
  33. Procedure Init;
  34.      begin
  35.      s := 'x';
  36.      AddParm(1,'TEMP','ABC');
  37.  
  38.      StandardOUTInit;
  39.  
  40.      s := GetParmStr('TEMP');
  41.      end;
  42.  
  43.  
  44. (*  Main program *)
  45.      BEGIN
  46.      pProgID := 'SKEL2 1.00';
  47.      Init;
  48.  
  49.      if ParamCount > 0 then
  50.           begin
  51.           GoOn;
  52.           end
  53.      else ShowDocFile;
  54.      OUTdone;
  55.      end.
  56.  
  57.  
  58.